home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / card_6137.txt < prev    next >
Text File  |  1988-02-27  |  6KB  |  235 lines
  1. -- card: 6137 from stack: in.4
  2. -- bmap block id: 9911
  3. -- flags: 4000
  4. -- background id: 2643
  5. -- name: Main
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=10 top=275 right=332 bottom=99
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=15 top=57 right=274 bottom=501
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 7 (button)
  37. -- low flags: 00
  38. -- high flags: 2004
  39. -- rect: left=416 top=202 right=240 bottom=461
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 15972 / 15972
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Clear Year To Date
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   Global GivingDate, ShortGivingDate, ExitFlag, DatePhrase
  51.  
  52.  
  53.   Answer "Do you wish to ERASE (ALL) of the income sub-account totals as " & "well as the records for income?  This will set all totals to zero!" with "ERASE" or "Ooops - NO"
  54.  
  55.   if it is "Ooops - NO" then exit mouseUp
  56.  
  57.   answer "Have you printed out any needed information?  This is your last chance to print any information before it will be erased." with "ERASE" or "Cancel"
  58.   if it is "Cancel" then exit mouseUp
  59.  
  60.   answer "Clear Year To Date of 'Transactions' or 'Balances'?" with "Transactions" or "Balances" or "Both"
  61.   put it into whichtype
  62.   if whichType is "Both" then put 3 into WhichType
  63.   if whichtype is "Balances" then put 1 into WhichType
  64.   if whichtype is "Transactions" then put 2 into WhichType
  65.  
  66.   put "Would you like the new recording date to be " into DatePhrase
  67.   put False into ExitFlag
  68.   send "DoDate" to background
  69.   if ExitFlag then exit mouseUp
  70.  
  71.   go to card 1 of background "Sub Accounts"
  72.   set the name of background button id 21 to GivingDate
  73.  
  74.   set numberformat to 0.00
  75.   go to last card of this background
  76.   put the id of this card into FlagCardID
  77.   if WhichType is 1 or WhichType is 3 then
  78.     put empty into background field "Sub Total2"
  79.   end if
  80.   if WhichType is 2 or WhichType is 3 then
  81.     put empty into background field "Sub Amount2"
  82.   end if
  83.   go to first card of this background
  84.  
  85.   repeat until the ID of this card is FlagCardID
  86.     set lockscreen to false
  87.     if WhichType is 1 or WhichType is 3 then
  88.       put empty into background field "Sub Total2"
  89.     end if
  90.     if WhichType is 2 or WhichType is 3 then
  91.       put empty into background field "Sub Amount2"
  92.     end if
  93.     go to next card of this background
  94.   end repeat
  95.  
  96.  
  97.   go to card "Main" of background "Income"
  98.  
  99.   show card field "Please Wait"
  100.   push card
  101.   put "This is a Record of Income Activity From" into Phrase
  102.   put phrase into line 1 of card field "Activity Report"
  103.   put shortGivingDate into Phrase
  104.   put phrase into line 2 of card field "Activity Report"
  105.   set cursor to 4
  106.   set lockscreen to true
  107.   hide card field "Please Wait"
  108.  
  109.   put empty into card field "Totals"
  110.   put the ID of this card into FlagCardID
  111.   go to next card of background "Income"
  112.   put the ID of this card into ThisID
  113.  
  114.   repeat forever
  115.     if FlagCardID is ThisID then exit repeat
  116.     put empty into background field "YTD Total"
  117.     go to next card of background "Income"
  118.     put the ID of this card into ThisID
  119.   end repeat
  120.  
  121.   go to card "Main" of background "Income Record"
  122.   put the ID of this card into FlagCardID
  123.   go to next card of background "Income Record"
  124.   put the ID of this card into ThisID
  125.  
  126.   repeat forever
  127.     if FlagCardID is ThisID then exit repeat
  128.     doMenu "Delete Card"
  129.     go to card "Main" of background "Income Record"
  130.     go to next card of background "Income Record"
  131.     put the ID of this card into ThisID
  132.   end repeat
  133.   pop card
  134.  
  135.   set the name of background button ID 139 to ShortGivingDate
  136.  
  137.   set lockscreen to false
  138.  
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 8 (field)
  144. -- low flags: 01
  145. -- high flags: 0004
  146. -- rect: left=376 top=52 right=198 bottom=496
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 134
  151. -- text size: 18
  152. -- style flags: 0
  153. -- line height: 24
  154. -- part name: Activity Report
  155.  
  156.  
  157. -- part 11 (button)
  158. -- low flags: 00
  159. -- high flags: 2000
  160. -- rect: left=463 top=287 right=328 bottom=502
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 9761 / 9761
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Daily
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   go to card "Map"
  172. end mouseUp
  173.  
  174.  
  175. -- part 13 (button)
  176. -- low flags: 00
  177. -- high flags: 0000
  178. -- rect: left=297 top=275 right=332 bottom=340
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: 
  187.  
  188.  
  189. -- part 1 (field)
  190. -- low flags: 00
  191. -- high flags: 0007
  192. -- rect: left=34 top=64 right=274 bottom=355
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 0
  196. -- font id: 3
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Totals
  201.  
  202.  
  203. -- part 9 (field)
  204. -- low flags: 81
  205. -- high flags: 0004
  206. -- rect: left=65 top=126 right=281 bottom=452
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 135
  211. -- text size: 24
  212. -- style flags: 0
  213. -- line height: 32
  214. -- part name: Please Wait
  215.  
  216.  
  217. -- part contents for background part 91
  218. ----- text -----
  219. Miscellaneous
  220.  
  221. -- part contents for card part 8
  222. ----- text -----
  223. This is a Record of Income Activity From
  224. 1/1/88
  225.  
  226. -- part contents for card part 9
  227. ----- text -----
  228.  
  229. Please Wait!
  230.  
  231. UPdating DataBase
  232.  
  233. -- part contents for background part 112
  234. ----- text -----
  235. -3700.00